   1 clear 
  10 H=0;C=0
  20 print "D0 Y0U WANT to CH0SE LIMIT"
  25 print "(1)-YES  N0-ANY NUMBER"
  30 input " "L
  40 if L#1goto 100
  50 print "# 0F 0BJECTS IN PILE?"
  60 input " "N
  70 print "MAX # THAT CAN BE TAKEN.
  80 input " "K
  90 goto 120
 100 N=20+rnd (80)
 110 K=5+rnd (10)
 120 clear ;print "BATTLE 0F THE NUMBERS."
 125 print 
 130 print "# 0F 0BJECTS IN PILE=",#1,N
 135 print 
 140 print "REM0VE 1to ",#1,K,#1," 0BJECTS";print 
 150 print "PLAYER WH0 TAKES LAST"
 155 print "0BJECT L0SES."
 156 print ;print "PUSH G0 WHEN READY."
 160 if KP>0goto 170
 170 clear ;print "Y0UR M0VE"
 180 input " "X
 190 if X>Kgoto 220
 200 if X<1goto 220
 210 if X<K+1goto 250
 220 print "ILLEGAL M0VE!"
 230 print 
 240 goto 170
 250 .
 260 N=N-X
 270 if N>0goto 350
 280 print "***C0MPUTER WINS***"
 285 C=C+1
 290 print ;print "C0MPUTERS SC0RE=",#1,C
 295 print ;print "Y0UR SC0RE=",#1,H
 296 print 
 300 .
 305 .
 310 .
 320 .
 330 print "NEW GAME."
 340 goto 20
 350 .
 360 Q=(N-1)div (K+1)
 370 Y=N-1-(Qmul (K+1))
 380 if Y=0goto 460
 390 N=N-Y
 400 print "C0MPUTERS M0VE=",#1,Y
 410 if N=0goto 520
 420 print "0BJECTS LEFT=",#1,N
 425 if N=1goto 280
 430 for L=1to 400
 440 next L
 450 goto 170
 460 .
 470 if N>1goto 500
 480 Y=1
 490 goto 390
 500 Y=rnd (K)
 510 goto 390
 520 print "***Y0U WIN!***"
 525 H=H+1
 530 goto 290
 540 print "END"
>:return 